1000 REM SAVE"0:COMMON CODE.GEN",8 1010 REM A LOCATE & DISPLAY UTILITY TO 1020 REM FIND IDENTICAL CODE SEQUENCES 1030 REM IN MACHINE LANGUAGE PROGRAMS 1040 : 1050 REM THIS PROGRAM WILL CREATE 1060 REM A LOAD AND RUN MODULE ON 1070 REM DISK CALLED 'COMMON CODE' 1080 REM 1090 FOR J=1 TO 910 : READ X 1100 CH=CH+X : NEXT 1110 IF CH<>98156 THEN PRINT"CHECKSUM ERROR" : END 1120 PRINT "DATA OK, NOW CREATING FILE": PRINT 1130 RESTORE 1140 OPEN8,8,8,"0:COMMON CODE,P,W" 1150 PRINT#8,CHR$(1)CHR$(8); 1160 FOR J=1 TO 910 : READ X 1170 PRINT#8,CHR$(X); : NEXT 1180 CLOSE 8 1190 PRINT "PRG FILE 'COMMON CODE' CREATED... 1200 [153] "THIS GENERATOR NO LONGER NEEDED. 1210 REM 1220 DATA 11, 8, 10, 0, 158, 50, 48, 54 1230 DATA 49, 0, 0, 0, 169, 147, 32, 210 1240 DATA 255, 162, 0, 142, 138, 11, 142, 140 1250 DATA 11, 189, 35, 10, 240, 6, 32, 210 1260 DATA 255, 232, 208, 245, 162, 0, 32, 21 1270 DATA 11, 32, 165, 10, 224, 5, 176, 13 1280 DATA 202, 224, 255, 240, 29, 189, 130, 11 1290 DATA 32, 191, 10, 144, 243, 169, 13, 32 1300 DATA 210, 255, 32, 26, 11, 162, 0, 189 1310 DATA 76, 10, 240, 197, 32, 210, 255, 232 1320 DATA 208, 245, 162, 0, 32, 26, 11, 189 1330 DATA 130, 11, 32, 179, 10, 10, 10, 10 1340 DATA 10, 157, 130, 11, 232, 189, 130, 11 1350 DATA 32, 179, 10, 224, 3, 240, 10, 24 1360 DATA 109, 130, 11, 141, 130, 11, 232, 208 1370 DATA 222, 24, 109, 132, 11, 141, 132, 11 1380 DATA 173, 138, 11, 208, 42, 173, 130, 11 1390 DATA 133, 252, 173, 132, 11, 133, 251, 169 1400 DATA 13, 32, 210, 255, 141, 138, 11, 162 1410 DATA 0, 189, 89, 10, 240, 6, 32, 210 1420 DATA 255, 232, 208, 245, 162, 0, 32, 21 1430 DATA 11, 32, 165, 10, 76, 45, 8, 173 1440 DATA 130, 11, 141, 137, 11, 173, 132, 11 1450 DATA 141, 136, 11, 169, 13, 32, 210, 255 1460 DATA 162, 0, 189, 110, 10, 240, 6, 32 1470 DATA 210, 255, 232, 208, 245, 32, 228, 255 1480 DATA 240, 251, 201, 80, 240, 6, 201, 83 1490 DATA 208, 243, 240, 3, 32, 214, 10, 162 1500 DATA 0, 189, 143, 10, 240, 9, 32, 210 1510 DATA 255, 232, 208, 245, 76, 62, 8, 32 1520 DATA 21, 11, 32, 228, 255, 240, 251, 201 1530 DATA 13, 240, 46, 32, 210, 255, 32, 191 1540 DATA 10, 32, 179, 10, 10, 10, 10, 10 1550 DATA 141, 141, 11, 32, 228, 255, 240, 251 1560 DATA 32, 210, 255, 32, 191, 10, 32, 179 1570 DATA 10, 24, 109, 141, 11, 201, 2, 144 1580 DATA 203, 141, 139, 11, 169, 13, 32, 210 1590 DATA 255, 32, 26, 11, 169, 13, 32, 210 1600 DATA 255, 173, 139, 11, 56, 233, 2, 141 1610 DATA 141, 11, 173, 136, 11, 56, 237, 141 1620 DATA 11, 141, 136, 11, 144, 35, 173, 136 1630 DATA 11, 56, 237, 139, 11, 141, 134, 11 1640 DATA 144, 29, 173, 137, 11, 141, 135, 11 1650 DATA 165, 251, 24, 109, 139, 11, 133, 253 1660 DATA 165, 252, 105, 0, 133, 254, 76, 120 1670 DATA 9, 206, 137, 11, 76, 71, 9, 173 1680 DATA 137, 11, 233, 1, 76, 86, 9, 160 1690 DATA 0, 177, 251, 209, 253, 240, 65, 24 1700 DATA 165, 253, 105, 1, 133, 253, 165, 254 1710 DATA 105, 0, 133, 254, 165, 253, 205, 136 1720 DATA 11, 208, 228, 165, 254, 205, 137, 11 1730 DATA 208, 221, 24, 165, 251, 105, 1, 133 1740 DATA 251, 165, 252, 105, 0, 133, 252, 162 1750 DATA 0, 142, 140, 11, 165, 251, 205, 134 1760 DATA 11, 208, 10, 165, 252, 205, 135, 11 1770 DATA 208, 3, 76, 118, 11, 76, 89, 9 1780 DATA 162, 0, 160, 0, 232, 236, 139, 11 1790 DATA 240, 10, 200, 177, 251, 209, 253, 240 1800 DATA 243, 76, 128, 9, 173, 140, 11, 240 1810 DATA 37, 32, 237, 10, 169, 32, 32, 210 1820 DATA 255, 32, 210, 255, 169, 36, 32, 210 1830 DATA 255, 160, 0, 192, 2, 240, 9, 185 1840 DATA 253, 0, 153, 141, 11, 200, 208, 243 1850 DATA 32, 94, 11, 76, 128, 9, 169, 13 1860 DATA 32, 210, 255, 169, 36, 32, 210, 255 1870 DATA 160, 0, 192, 2, 240, 9, 185, 251 1880 DATA 0, 153, 141, 11, 200, 208, 243, 32 1890 DATA 94, 11, 169, 1, 141, 140, 11, 76 1900 DATA 218, 9, 32, 32, 32, 18, 67, 79 1910 DATA 77, 77, 79, 78, 32, 67, 79, 68 1920 DATA 69, 146, 13, 13, 83, 84, 65, 82 1930 DATA 84, 32, 65, 68, 68, 82, 69, 83 1940 DATA 83, 32, 73, 78, 32, 72, 69, 88 1950 DATA 32, 13, 0, 73, 78, 80, 85, 84 1960 DATA 32, 69, 82, 82, 79, 82, 13, 0 1970 DATA 69, 78, 68, 32, 65, 68, 68, 82 1980 DATA 69, 83, 83, 32, 73, 78, 32, 72 1990 DATA 69, 88, 32, 13, 0, 79, 85, 84 2000 DATA 80, 85, 84, 32, 84, 79, 32, 18 2010 DATA 83, 146, 67, 82, 69, 69, 78, 32 2020 DATA 79, 82, 32, 18, 80, 146, 82, 73 2030 DATA 78, 84, 69, 82, 13, 0, 66, 89 2040 DATA 84, 69, 32, 76, 69, 78, 71, 84 2050 DATA 72, 32, 73, 78, 32, 72, 69, 88 2060 DATA 13, 55, 157, 0, 32, 207, 255, 201 2070 DATA 13, 240, 6, 157, 130, 11, 232, 208 2080 DATA 243, 96, 201, 58, 176, 4, 56, 233 2090 DATA 48, 96, 56, 233, 55, 96, 201, 71 2100 DATA 176, 14, 201, 65, 176, 8, 201, 58 2110 DATA 176, 6, 201, 48, 144, 2, 24, 96 2120 DATA 104, 104, 76, 62, 8, 169, 7, 162 2130 DATA 4, 160, 255, 32, 186, 255, 169, 0 2140 DATA 32, 189, 255, 32, 192, 255, 162, 7 2150 DATA 32, 201, 255, 96, 169, 0, 141, 138 2160 DATA 11, 165, 203, 201, 64, 240, 23, 201 2170 DATA 60, 208, 19, 173, 138, 11, 208, 19 2180 DATA 165, 203, 201, 64, 208, 250, 169, 1 2190 DATA 141, 138, 11, 76, 242, 10, 173, 138 2200 DATA 11, 208, 222, 96, 169, 0, 133, 204 2210 DATA 96, 169, 1, 133, 204, 96, 162, 1 2220 DATA 160, 0, 189, 141, 11, 41, 240, 74 2230 DATA 74, 74, 74, 201, 10, 176, 26, 24 2240 DATA 105, 48, 153, 130, 11, 200, 192, 3 2250 DATA 240, 21, 176, 32, 224, 0, 240, 21 2260 DATA 189, 141, 11, 41, 15, 202, 76, 44 2270 DATA 11, 24, 105, 55, 76, 51, 11, 189 2280 DATA 141, 11, 76, 68, 11, 160, 2, 162 2290 DATA 0, 76, 35, 11, 96, 32, 31, 11 2300 DATA 162, 0, 224, 4, 240, 9, 189, 130 2310 DATA 11, 32, 210, 255, 232, 208, 243, 169 2320 DATA 13, 32, 210, 255, 96, 32, 204, 255 2330 DATA 169, 7, 141, 139, 11, 32, 195, 255 2340 DATA 96, 0, 0, 0, 0, 0, 0, 0 2350 DATA 0, 0, 7, 0, 0, 0